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MODULE ERFOUTPUT 

(ZTITLE ‘ERF Surput routines’ 
IDENT = ‘V04- )s 

BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ee WITH THE TERMS OF SUCH Tint AND wre THE 


ie TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
OORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: RF, Error Log Report Generator 
: ABSTRACT: 

: This module contains the text outputting routines for ERF. 
: ENVIRONMENT : 

VAX/VMS operating system, user mode. 

: AUTHOR: Sharon Reynolds, CREATION DATE: Feb-1984 


REQUIRE 'SRCS:ERFDEF.REQ’ ; 


EXTERNAL ROUTINE 
Write_msg ; 
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GLOBAL Routine OUTPUT_LINES : NOVALUE = 
Begin 


that were passed to it. This means that there can be multiple 
sets (control_string/param_list) of call parameters specified. 


! Input Parameters: 


Control_string = address of ee eng ppd containing fao control string. 
Param_list = address of parameter List. 


Output Parameters: 
None 


BUILTIN 
Actualcount, 
Actualparameter ; 


LOCAL 
Msg_buf fer: Vector(1024,bytel, 
Control_string, 


Vector (2), 
Ou 4g Initial (0), 
st, 


Status ; 
] 
: Get the fao control string and the parameter List. 


incr 1 fron 1 to ACTUALCOUNT()/2 do 


egin 
control string = ACTUALPARAMETER(2*(.1 = 1) + 1) ; 
Param_list = ACTUALPARAMETER(2*(.1 = 1) + 2) ; 


sg_desc tO} = ZALLOCATION(msg_buffer) ; 
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: Calling Sequence: 
i OUTPUT LINES (control_string,param List) 
NOTE: This routine will calculate the actual number of parameters 
' 
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Msg_desc = msg_buffer ; 
98 P If NOT (status = SFAOL (CTRSTR = .control_string, 
99 P OUTBUF = msg_desc, 
100 P OUTLEN = msg_desc 
101 PRMLST = .param_list)) 
19? Then Signal_stop (.status) ; 
105 
106 ‘ 
4 , Output the message to the user specified output device. 


ERFOUTPUT ERF output routines 18-5e =1984 23:45:28 AX-11 Bliss-32 V4.0-74 Page 
Oe-000 Verge 138e F3i37:5¢ | PERE SRBbesSad eet 835; ee 3 
.” 3 93 WRITE_MSG (msg_desc,out_flag) ; 

198 3 J 9. -flag 

3; 06111 95 End ; 

3 118 38 

3; 9 Return ; 

7 (1146 98 


End ; *"! routine 
TITLE aaah ERF output routines 
-IDENT \v04-000\ 
EXTRN WRITE_MSG, SYSSFAOL 
-PSECT S$CODE,NOWRT, PIC,2 


007¢ 00000 .ENTRY OUTPUT_LINES, Save R2,R3,R4,R5,R6 : 0336 
5E FBF8 ce 9E 90002 MOVAB Oy OSSSP) SP : 
E 04 0000 CLRL  OUT_FLA + 0337 
53 6C OA 90009 MOVZBL (APY, R + 0374 
53 02 C6 0000C DIVL2 #2, R3 F 
52 D4 OO00F CLRL : 
48 11 00011 BRB 4 ; 
50 52 01 78 00013 1$: ASHL #1, +I, _RO + 0376 
56 FC AC4O 00 00017 MOVL § =4(APSCROJ, CONTROL_STRING : 
50 be 01 78 0001C ASHL ff : R + 0377 
5 6C40 00 90020 MOVL (AP) CROJ, PARAM_LIST : 
04 AE 0400 8F 3C 00024 MOVZWL #1024, MSG_DESC : 0379 
08 AE 0c AE 9E 0002A MOVAB MSG BUFFER, MSG_DESC+4 + 0380 
5 DD 0002F PUSHL PARAM _LIST ; 0385 
08 AE 9F 00031 PUSHAB MSG_DESC : 
OC AE 9F 000 PUSHAB MSG DESC ; 
56 DD 00037 PUSHL CONTROL STRING : 
000000006 00 04 FB 00039 CALLS #4, SYSSFAOL ; 
54 50 DO 00040 MOVL RO. US ; 
09 54 E8 00043 LBS ATUS, 2$ : 
54 DD 00046 PUSHL ST : 0387 
000000006 00 01 FB 00048 CALLS #1, LIBSSTOP ; 
SE DD OO04F 28: PUSHL SP + 0393 
08 AE 9F 00051 PUSHAB MSG_DESC : 
000000006 00 08 Fe 00054 CALLS We. WRITE_MSG : 
B4 52 53 F3 00058 3S: AOBLEQ R3. I, 1$ : 0374 
04 0005F RET : 0398 


; Routine Size: 96 bytes, Routine Base: S$CODE + 0000 


: 115 +44 1 
: 116 400 1 End !' module 
: 117 0401 0 ELUDOM 


-EXTRN LIBSSTOP 


; PSECT SUMMARY 
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: Name Bytes Attributes 
: SCODE 96 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


IP, ne ee ee eee - Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 23 0 1000 00:02.0 
; COMMAND QUALIFIERS 

Size: 96 code + 0 data bytes 

Run Time: 00:06.7 


Elapsed Time: 00:22.4 
Lines/CPU Min: 3607 
Lexemes/CPU-Min: 24512 
1 Used: 79 pages 
Compilation Complete 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:ERFOUTPUT/OBJ=OBJ$:ERFOUTPUT MSRC$:ERFOUTPUT/UPDATE=(ENH$: ERF OUTPUT) 
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DIGI 
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IGIT 
ONFI 


